home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
allfiles
/
tokyo
/
east.dir
/
00012_Script_runEast
< prev
next >
Wrap
Text File
|
1999-04-26
|
718b
|
34 lines
global sndList, sndCount, chanNum, maxSnd
global Esnd, Ecounter, EsprtList
on exitFrame
echo
east
rightArrow
exitMovie
go the frame
end
on mouseup
if not(rollover(43)) or not(rollover(37)) then
setat EsprtList, Ecounter-8, new(script "eastBirth", Ecounter, Ecounter+492)
set Ecounter=Ecounter+1
if Ecounter=19 then set Ecounter=9
updatestage
end if
end
on mousedown
put string(getat(Esnd, random(8))) into line sndCount of sndList
sound playfile, chanNum, the pathname & line sndCount of sndlist
set chanNum=chanNum+1
if chanNum=9 then set chanNum=2
end
on keydown
if ( (the key = "q") or (the key = "Q") ) then
play done
end if
end